10 POKE53280,0:POKE53281,0
20 PRINT"[147][158]664 + 17 BLOCKS FREE"
30 FORI=1TO2000:NEXT
40 PRINT"DIE 17 BLOCKS KOMMEN VON DER 18.SPUR"
50 OPEN1,8,15,"I":OPEN2,8,2,"#"
60 DIMT(25),S(25),E(25)
70 PRINT#1,"U1:"2;0;18;0
80 GET#2,T$,S$
90 T(0)=ASC(T$+CHR$(0)):S(0)=ASC(S$+CHR$(0)):T=T(0):S=S(0):B=1
100 PRINT#1,"U1:"2;0;T;S
110 GET#2,T$,S$
120 T=ASC(T$+CHR$(0)):S=ASC(S$+CHR$(0))
130 IFT=0ORT>35ORS>20ORB=25THEN160
140 T(B)=T:S(B)=S:E(B-1)=8:B=B+1
150 GOTO100
160 M=B:F=0:FORI=2TO226STEP32
170 PRINT#1,"B-P:"2,I
180 GET#2,W$
190 IFW$=""THENF=F+1
200 NEXTI
210 E(B-1)=8-F
220 IFF=8ANDM=1THEN700
230 PRINT"[147]GENUEGEN DIE";F;"FREIEN DIRECTORYPLAETZE"
240 GETA$:IFA$=""THEN240
250 IFA$<>"J"THENPRINT"JA"
260 PRINT#1,"U1:"2;0;18;0
270 PRINT#1,"B-P:"2,73
280 B=0:L=19:DIMZ(25):FORI=1TO3:GET#2,W$
290 W=ASC(W$+CHR$(0))
300 FORJ=1TO8:W=W/2:IFW=INT(W)THENZ(B)=1
310 IFZ(B)=0ANDA$<>"J"THENA$="":Z(B)=1
320 IFZ(B)=1ANDB<19THENL=L-1
330 B=B+1:W=INT(W):NEXTJ,I
340 IFL<1THEN710
350 PRINTL;" BLOECKE WERDEN FREI"
360 B=0
370 FORE=0TOE(B)-1
380 AT=T(B):AS=S(B):NS=AS:IFAT=0ANDAS=0THEN680
390 I=0:Z=E*32+3
400 R=0
410 PRINT#1,"U1:"2;0;AT;AS
420 PRINT#1,"B-P:"2,Z
430 GET#2,T$,S$
440 T=ASC(T$+CHR$(0)):S=ASC(S$+CHR$(0))
450 IFT=18THEN660
460 IFT=0ORT>35ORS>20THENZ=1:GOTO560
470 FORI=0TO18STEP10
480 IFZ(I)=0THEN530
490 IFI=9THEN520
500 IFI>8THENI=I-9:GOTO480
510 NEXTI
520 Z=-1:GOTO560
530 PRINT#1,"B-P:"2,Z
540 PRINT#2,CHR$(18);CHR$(I);
550 IFAT=18ANDAS=NSTHENR=1
560 PRINT"      BLOCK";RIGHT$("  "+STR$(AT),3);","RIGHT$("  "+STR$(AS),3);
570 IFR=1THENPRINT"  ZEIGER";E+1;"GEAENDERT":GOTO590
580 PRINT"  -->  18,";RIGHT$("  "+STR$(NS),3)
590 PRINT#1,"B-A:"0,18,NS
600 PRINT#1,"B-F:"0,AT,AS
610 Z(I)=1
620 PRINT#1,"U2:"2;0;18;NS
630 AT=T:AS=S:NS=I
640 IFZ=-1THEN730
650 IFZ<>1THENZ=0:GOTO400
660 NEXTE
670 B=B+1:GOTO370
680 PRINT"NICHT ALLE FREIEN BLOCKS WURDEN BELEGT, TEILE DER SPUR 18 SIND NOCH FREI"
690 GOTO730
700 PRINT"DIE DISK IST LEER":GOTO730
710 PRINT"LEIDER NICHTS ZU MACHEN, KEINE FREIEN"
720 PRINT"BLOCKS MEHR VORHANDEN"
730 PRINT:CLOSE1:CLOSE2:END